home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaq.d64 / w.dat < prev    next >
Text File  |  2007-02-28  |  2KB  |  102 lines
  1. 8000 FOR J:=1 TO 4 DO //W1
  2. 8010  PENUP 
  3. 8020  FORWARD 2
  4. 8030  PENDOWN 
  5. 8040  FORWARD 9
  6. 8050  PENUP 
  7. 8060  FORWARD 14
  8. 8070  PENDOWN 
  9. 8080  FORWARD 9
  10. 8090  PENUP 
  11. 8100  BACK 34
  12. 8110  LEFT 90
  13. 8120  FORWARD 1
  14. 8130  RIGHT 90
  15. 8140 ENDFOR J
  16. 8150 //
  17. 8160 FOR J:=1 TO 20 DO // 2
  18. 8170  PENDOWN 
  19. 8180  FORWARD 36
  20. 8190  PENUP 
  21. 8200  BACK 36
  22. 8210  LEFT 90
  23. 8220  FORWARD 1
  24. 8230  RIGHT 90
  25. 8240 ENDFOR J
  26. 8250 //
  27. 8260 FOR J:=1 TO 14 DO // 3
  28. 8270  PENUP 
  29. 8280  FORWARD 2
  30. 8290  PENDOWN 
  31. 8300  FORWARD 9
  32. 8310  PENUP 
  33. 8320  FORWARD 14
  34. 8330  PENDOWN 
  35. 8340  FORWARD 9
  36. 8350  PENUP 
  37. 8360  BACK 34
  38. 8370  LEFT 90
  39. 8380  FORWARD 1
  40. 8390  RIGHT 90
  41. 8400 ENDFOR J
  42. 8410 //
  43. 8420 FOR J:=1 TO 2 DO // 4
  44. 8430  PENUP 
  45. 8440  FORWARD 4
  46. 8450  PENDOWN 
  47. 8460  FORWARD 5
  48. 8470  PENUP 
  49. 8480  FORWARD 18
  50. 8490  PENDOWN 
  51. 8500  FORWARD 5
  52. 8510  PENUP 
  53. 8520  BACK 32
  54. 8530  LEFT 90
  55. 8540  FORWARD 1
  56. 8550  RIGHT 90
  57. 8560 ENDFOR J
  58. 8570 //
  59. 8580 PENUP 
  60. 8590 RIGHT 90
  61. 8600 FORWARD 38
  62. 8610 LEFT 90
  63. 8620 FORWARD 12
  64. 8630 //
  65. 8640 FOR J:=1 TO 12 DO // 5
  66. 8650  IF J=1 THEN
  67. 8660   L:=13.5
  68. 8670  ENDIF 
  69. 8680  IF J=2 THEN PRINT 3-12
  70. 8690  L:=L-1
  71. 8700  PENDOWN 
  72. 8710  PENCOLOR 15
  73. 8720  FORWARD L
  74. 8730  PENUP 
  75. 8740  BACK L-.5
  76. 8750  LEFT 90
  77. 8760  FORWARD 1
  78. 8770  RIGHT 90
  79. 8780 ENDFOR J
  80. 8790 PENCOLOR 6
  81. 8800 //
  82. 8810 BACK 17
  83. 8820 LEFT 90
  84. 8830 FORWARD 8
  85. 8840 RIGHT 90
  86. 8850 //
  87. 8860 FORWARD 11
  88. 8870 FOR J:=1 TO 12 DO // 6
  89. 8880  IF J=1 THEN
  90. 8890   L:=14
  91. 8900  ENDIF 
  92. 8910  IF J=2 THEN PRINT 3-12
  93. 8920  L:=L-1
  94. 8930  PENDOWN 
  95. 8940  FORWARD L
  96. 8950  PENUP 
  97. 8960  BACK L-.5
  98. 8970  LEFT 90
  99. 8980  FORWARD 1
  100. 8990  RIGHT 90
  101. 9000 ENDFOR J
  102.